﻿

Public Class CRazonInstrumento

Private _nominalRate    As double 
Private _rateTyp        As String 
Private _recvIdxCod     As Double
Private _recvMarginAdd  As Integer 


Public Sub new(ByVal nR As Double, ByVal rT As String, ByVal rIC As Double, ByVal rMA As Integer)

   Me._nominalRate    = nR 
   Me._rateTyp        = rT 
   me._recvIdxCod     = rIC 
   Me._recvMarginAdd  = rMA 

End Sub




Public Property NominalRate() As Double 
    Get
        Return _nominalRate
    End Get
    Set(ByVal value As Double)
        _nominalRate = value
    End Set
End Property

Public Property RateTyp() As String
    Get
        Return _rateTyp
    End Get
    Set(ByVal value As String)
        _rateTyp = value
    End Set
End Property


Public Property RecvIdxCod() As Double 
    Get
        Return _recvIdxCod
    End Get
    Set(ByVal value As Double)
        _recvIdxCod = value
    End Set
End Property


Public Property RecvMarginAdd() As Integer 
    Get
        Return _recvMarginAdd
    End Get
    Set(ByVal value As Integer)
        _recvMarginAdd = value
    End Set
End Property



End Class
